home *** CD-ROM | disk | FTP | other *** search
Text File | 1998-04-23 | 42.3 KB | 1,453 lines |
- object FTP_CreateNewProfile: TFTP_CreateNewProfile
- Left = 158
- Top = 101
- Width = 631
- Height = 422
- Caption = 'Profiles'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- FormStyle = fsMDIChild
- Position = poDefault
- Visible = True
- WindowState = wsMaximized
- OnClose = FormClose
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object Panel1: TPanel
- Left = 0
- Top = 328
- Width = 623
- Height = 66
- Align = alBottom
- TabOrder = 0
- object SpeedButton3: TSpeedButton
- Left = 72
- Top = 8
- Width = 25
- Height = 25
- Visible = False
- OnClick = SpeedButton3Click
- end
- object ExplorerButton1: TExplorerButton
- Left = 560
- Top = 8
- Width = 50
- Height = 40
- Caption = 'Next'
- DropDownStyle = ddsIExplorer
- Options = [boPopupMark, boShowBevel, boShowDownPattern]
- CustomWidth = 50
- CustomHeight = 40
- OnClick = ExplorerButton1Click
- IBitmap = {}
- end
- object ExplorerButton2: TExplorerButton
- Left = 504
- Top = 8
- Width = 50
- Height = 40
- Caption = 'Previous'
- DropDownStyle = ddsIExplorer
- Options = [boPopupMark, boShowBevel, boShowDownPattern]
- CustomWidth = 50
- CustomHeight = 40
- OnClick = ExplorerButton2Click
- IBitmap = {}
- end
- object ExplorerButton3: TExplorerButton
- Left = 8
- Top = 8
- Width = 50
- Height = 40
- Caption = 'Cancel'
- DropDownStyle = ddsIExplorer
- Options = [boPopupMark, boShowBevel, boShowDownPattern]
- CustomWidth = 50
- CustomHeight = 40
- OnClick = ExplorerButton3Click
- IBitmap = {}
- end
- end
- object Panel2: TPanel
- Left = 0
- Top = 0
- Width = 623
- Height = 328
- Align = alClient
- TabOrder = 1
- object PageControl1: TPageControl
- Left = 1
- Top = 1
- Width = 621
- Height = 326
- ActivePage = TabSheet9
- Align = alClient
- TabOrder = 0
- object TabSheet1: TTabSheet
- Caption = 'TabSheet1'
- TabVisible = False
- object Memo1: TMemo
- Left = 8
- Top = 24
- Width = 593
- Height = 81
- Alignment = taCenter
- BorderStyle = bsNone
- Color = clBtnFace
- Ctl3D = False
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlue
- Font.Height = -16
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Lines.Strings = (
-
- 'A "Profile" is a set of parameters that describes a particular b' +
- 'ackup '
-
- 'event, such as what files should be backed up, where the backup ' +
- 'files should '
- 'be placed, and when it should happen.')
- ParentCtl3D = False
- ParentFont = False
- ReadOnly = True
- TabOrder = 0
- end
- object Memo2: TMemo
- Left = 8
- Top = 152
- Width = 593
- Height = 121
- Alignment = taCenter
- BorderStyle = bsNone
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlue
- Font.Height = -16
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Lines.Strings = (
-
- 'Each screen will ask for specific information. Provide the requ' +
- 'ested '
-
- 'information and click the "Next" button to go to the next screen' +
- '. Click '
-
- 'the "Previous" button to go back a page. Click "Cancel" to disc' +
- 'ard the '
- 'creating of the profile.')
- ParentFont = False
- ReadOnly = True
- TabOrder = 1
- end
- end
- object TabSheet2: TTabSheet
- Caption = 'TabSheet2'
- TabVisible = False
- object Label1: TLabel
- Left = 64
- Top = 0
- Width = 476
- Height = 40
- Alignment = taCenter
- Caption =
- 'First, a profile name is needed. Please enter a unique name for' +
- ' the new profile. Click the "Next" button when done.'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlue
- Font.Height = -16
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- WordWrap = True
- end
- object Label2: TLabel
- Left = 183
- Top = 132
- Width = 60
- Height = 13
- Caption = 'Profile Name'
- end
- object OvcDbSimpleField1: TOvcDbSimpleField
- Left = 256
- Top = 128
- Width = 193
- Height = 21
- Cursor = crIBeam
- DataField = 'PROFILE'
- DataSource = MainWin.DS_Profiles
- FieldType = ftString
- CaretOvr.Shape = csBlock
- Controller = OvcController1
- DisabledColors.BackColor = clWindow
- DisabledColors.TextColor = clGrayText
- ErrorColors.BackColor = clRed
- ErrorColors.TextColor = clBlack
- HighlightColors.BackColor = clHighlight
- HighlightColors.TextColor = clHighlightText
- MaxLength = 40
- PictureMask = '!'
- TabOrder = 0
- end
- end
- object TabSheet3: TTabSheet
- Caption = 'TabSheet3'
- TabVisible = False
- object Label3: TLabel
- Left = 0
- Top = 0
- Width = 0
- Height = 40
- Align = alTop
- Alignment = taCenter
- Caption =
- 'Next, you must specify when you want the backup event to occur. ' +
- ' Please select the backup options and click the "Next" button to' +
- ' continue.'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlue
- Font.Height = -16
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- WordWrap = True
- end
- object Label4: TLabel
- Left = 376
- Top = 160
- Width = 32
- Height = 13
- Caption = 'Label4'
- end
- object Label13: TLabel
- Left = 2
- Top = 48
- Width = 608
- Height = 20
- Alignment = taCenter
- AutoSize = False
- Caption = 'Label13'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlue
- Font.Height = -16
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object DBRadioGroup1: TDBRadioGroup
- Left = 0
- Top = -212
- Width = 0
- Height = 212
- Align = alBottom
- Caption = 'Backup Schedule Options'
- DataField = 'KIND'
- DataSource = MainWin.DS_Profiles
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -16
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- Items.Strings = (
- 'Daily Backup every day(s) at :'
- 'Hourly Backup every hours on the hour.')
- ParentFont = False
- TabOrder = 0
- end
- object SpinEdit2: TSpinEdit
- Left = 195
- Top = 271
- Width = 41
- Height = 30
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -16
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- MaxValue = 23
- MinValue = 1
- ParentFont = False
- TabOrder = 1
- Value = 1
- end
- object ComboBox1: TComboBox
- Left = 313
- Top = 180
- Width = 44
- Height = 28
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -16
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ItemHeight = 20
- Items.Strings = (
- '01'
- '02'
- '03'
- '04'
- '05'
- '06'
- '07'
- '08'
- '09'
- '10'
- '11'
- '12')
- ParentFont = False
- TabOrder = 2
- Text = '01'
- end
- object ComboBox2: TComboBox
- Left = 377
- Top = 180
- Width = 45
- Height = 28
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -16
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ItemHeight = 20
- Items.Strings = (
- '00'
- '01'
- '02'
- '03'
- '04'
- '05'
- '06'
- '07'
- '08'
- '09'
- '10'
- '11'
- '12'
- '13'
- '14'
- '15'
- '16'
- '17'
- '18'
- '19'
- '20'
- '21'
- '22'
- '23'
- '24'
- '25'
- '26'
- '27'
- '28'
- '29'
- '30'
- '31'
- '32'
- '33'
- '34'
- '35'
- '36'
- '37'
- '38'
- '39'
- '40'
- '41'
- '42'
- '43'
- '44'
- '45'
- '46'
- '47'
- '48'
- '49'
- '50'
- '51'
- '52'
- '53'
- '54'
- '55'
- '56'
- '57'
- '58'
- '59')
- ParentFont = False
- TabOrder = 3
- Text = '00'
- end
- object ComboBox3: TComboBox
- Left = 426
- Top = 180
- Width = 51
- Height = 28
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -16
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ItemHeight = 20
- Items.Strings = (
- 'am'
- 'pm')
- ParentFont = False
- TabOrder = 4
- Text = 'am'
- end
- object DBCheckBox1: TDBCheckBox
- Left = 192
- Top = 143
- Width = 87
- Height = 17
- Caption = 'Monday'
- DataField = 'MON'
- DataSource = MainWin.DS_Profiles
- TabOrder = 5
- ValueChecked = 'True'
- ValueUnchecked = 'False'
- end
- object DBCheckBox2: TDBCheckBox
- Left = 192
- Top = 159
- Width = 87
- Height = 17
- Caption = 'Tuesday'
- DataField = 'TUE'
- DataSource = MainWin.DS_Profiles
- TabOrder = 6
- ValueChecked = 'True'
- ValueUnchecked = 'False'
- end
- object DBCheckBox4: TDBCheckBox
- Left = 192
- Top = 175
- Width = 87
- Height = 17
- Caption = 'Wednesday'
- DataField = 'WED'
- DataSource = MainWin.DS_Profiles
- TabOrder = 7
- ValueChecked = 'True'
- ValueUnchecked = 'False'
- end
- object DBCheckBox5: TDBCheckBox
- Left = 192
- Top = 191
- Width = 87
- Height = 17
- Caption = 'Thursday'
- DataField = 'THU'
- DataSource = MainWin.DS_Profiles
- TabOrder = 8
- ValueChecked = 'True'
- ValueUnchecked = 'False'
- end
- object DBCheckBox6: TDBCheckBox
- Left = 192
- Top = 207
- Width = 87
- Height = 17
- Caption = 'Friday'
- DataField = 'FRI'
- DataSource = MainWin.DS_Profiles
- TabOrder = 9
- ValueChecked = 'True'
- ValueUnchecked = 'False'
- end
- object DBCheckBox7: TDBCheckBox
- Left = 192
- Top = 223
- Width = 87
- Height = 17
- Caption = 'Saturday'
- DataField = 'SAT'
- DataSource = MainWin.DS_Profiles
- TabOrder = 10
- ValueChecked = 'True'
- ValueUnchecked = 'False'
- end
- object DBCheckBox8: TDBCheckBox
- Left = 192
- Top = 239
- Width = 87
- Height = 17
- Caption = 'Sunday'
- DataField = 'SUN'
- DataSource = MainWin.DS_Profiles
- TabOrder = 11
- ValueChecked = 'True'
- ValueUnchecked = 'False'
- end
- end
- object TabSheet4: TTabSheet
- Caption = 'TabSheet4'
- TabVisible = False
- object Label5: TLabel
- Left = 0
- Top = 0
- Width = 0
- Height = 60
- Align = alTop
- Alignment = taCenter
- Caption =
- 'Next, you must specify which files to backup. Once the site dis' +
- 'plays the server files, simply drag and drop the files from the ' +
- 'Web Server File list over to the Backup File List making sure th' +
- 'at the file transfer mode is correct.'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlue
- Font.Height = -16
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- WordWrap = True
- end
- object Panel3: TPanel
- Left = 0
- Top = -250
- Width = 0
- Height = 250
- Align = alBottom
- TabOrder = 0
- object Panel4: TPanel
- Left = -325
- Top = 1
- Width = 324
- Height = 248
- Align = alRight
- TabOrder = 0
- object Panel6: TPanel
- Left = 1
- Top = 1
- Width = 322
- Height = 46
- Align = alTop
- TabOrder = 0
- object SpeedButton4: TSpeedButton
- Left = 290
- Top = 11
- Width = 22
- Height = 22
- Hint = 'Delete the selected file from the list.'
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 04000000000000010000130B0000130B00001000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 3333333333333333FF3333333333333003333333333333377F33333333333307
- 733333FFF333337773333C003333307733333777FF333777FFFFC0CC03330770
- 000077777FF377777777C033C03077FFFFF077FF77F777FFFFF7CC00000F7777
- 777077777777777777773CCCCC00000000003777777777777777333330030FFF
- FFF03333F77F7F3FF3F7333C0C030F00F0F03337777F7F77373733C03C030FFF
- FFF03377F77F7F3F333733C03C030F0FFFF03377F7737F733FF733C000330FFF
- 0000337777F37F3F7777333CCC330F0F0FF0333777337F737F37333333330FFF
- 0F03333333337FFF7F7333333333000000333333333377777733}
- NumGlyphs = 2
- ParentShowHint = False
- ShowHint = True
- OnClick = SpeedButton4Click
- end
- object lTrace: TListBox
- Left = 1
- Top = 1
- Width = 320
- Height = 44
- Align = alClient
- Color = clBtnFace
- ItemHeight = 13
- TabOrder = 0
- end
- end
- object Panel8: TPanel
- Left = 1
- Top = 47
- Width = 322
- Height = 200
- Align = alClient
- TabOrder = 1
- object Label14: TLabel
- Left = 16
- Top = 17
- Width = 92
- Height = 13
- Caption = 'Backup File List'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object SpeedButton5: TSpeedButton
- Left = 136
- Top = 13
- Width = 177
- Height = 22
- Caption = 'Delete Selected File From List'
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 04000000000000010000130B0000130B00001000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 333333333333333333FF33333333333330003333333333333777333333333333
- 300033FFFFFF3333377739999993333333333777777F3333333F399999933333
- 3300377777733333337733333333333333003333333333333377333333333333
- 3333333333333333333F333333333333330033333F33333333773333C3333333
- 330033337F3333333377333CC3333333333333F77FFFFFFF3FF33CCCCCCCCCC3
- 993337777777777F77F33CCCCCCCCCC399333777777777737733333CC3333333
- 333333377F33333333FF3333C333333330003333733333333777333333333333
- 3000333333333333377733333333333333333333333333333333}
- NumGlyphs = 2
- OnClick = SpeedButton5Click
- end
- object OvcDbTable1: TOvcDbTable
- Left = 1
- Top = 47
- Width = 320
- Height = 152
- Align = alBottom
- Colors.ActiveFocused = clHighlight
- Colors.ActiveFocusedText = clHighlightText
- Colors.ActiveUnfocused = clHighlight
- Colors.ActiveUnfocusedText = clHighlightText
- Colors.Locked = clBtnFace
- Colors.LockedText = clWindowText
- Colors.Editing = clBtnFace
- Colors.EditingText = clWindowText
- Colors.Selected = clHighlight
- Colors.SelectedText = clHighlightText
- Controller = OvcController1
- DataSource = MainWin.DS_Files
- GridPenSet.NormalGrid.NormalColor = clBtnShadow
- GridPenSet.NormalGrid.SecondColor = clBtnHighlight
- GridPenSet.NormalGrid.Style = psDot
- GridPenSet.NormalGrid.Effect = geBoth
- GridPenSet.LockedGrid.NormalColor = clBtnShadow
- GridPenSet.LockedGrid.SecondColor = clBtnHighlight
- GridPenSet.LockedGrid.Style = psSolid
- GridPenSet.LockedGrid.Effect = ge3D
- GridPenSet.CellWhenFocused.NormalColor = clBlack
- GridPenSet.CellWhenFocused.SecondColor = clBtnHighlight
- GridPenSet.CellWhenFocused.Style = psSolid
- GridPenSet.CellWhenFocused.Effect = geBoth
- GridPenSet.CellWhenUnfocused.NormalColor = clBlack
- GridPenSet.CellWhenUnfocused.SecondColor = clBtnHighlight
- GridPenSet.CellWhenUnfocused.Style = psDash
- GridPenSet.CellWhenUnfocused.Effect = geBoth
- HeaderCell = OvcTCColHead1
- HeaderOptions = [hoShowHeader, hoUseHeaderCell, hoUseStrings]
- TabOrder = 0
- OnDragDrop = OvcDbTable1DragDrop
- OnDragOver = OvcDbTable1DragOver
- CellData = (
- 'FTP_CreateNewProfile.OvcTCColHead1'
- 'FTP_CreateNewProfile.OvcTCComboBox1'
- 'FTP_CreateNewProfile.OvcTCString1')
- ColData = (
- 244
- True
- 'PROFILE'
- 0
- False
- 200
- False
- 'SOURCE'
- 0
- True
- 'OvcTCString1'
- 90
- False
- 'MODE'
- 0
- True
- 'OvcTCComboBox1')
- end
- end
- end
- object Panel5: TPanel
- Left = 1
- Top = 1
- Width = 287
- Height = 248
- Align = alClient
- TabOrder = 1
- object Panel7: TPanel
- Left = 1
- Top = 1
- Width = 285
- Height = 92
- Align = alTop
- TabOrder = 0
- object SpeedButton1: TSpeedButton
- Left = 2
- Top = 3
- Width = 281
- Height = 22
- Hint = 'Go into subdirectory'
- Caption = 'Open Selected Directory'
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 04000000000000010000120B0000120B00001000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
- 55555555FFFFFFFFFF55555000000000055555577777777775F55500B8B8B8B8
- B05555775F555555575F550F0B8B8B8B8B05557F75F555555575550BF0B8B8B8
- B8B0557F575FFFFFFFF7550FBF0000000000557F557777777777500BFBFBFBFB
- 0555577F555555557F550B0FBFBFBFBF05557F7F555555FF75550F0BFBFBF000
- 55557F75F555577755550BF0BFBF0B0555557F575FFF757F55550FB700007F05
- 55557F557777557F55550BFBFBFBFB0555557F555555557F55550FBFBFBFBF05
- 55557FFFFFFFFF7555550000000000555555777777777755555550FBFB055555
- 5555575FFF755555555557000075555555555577775555555555}
- NumGlyphs = 2
- ParentShowHint = False
- ShowHint = True
- OnClick = SpeedButton1Click
- end
- object SpeedButton2: TSpeedButton
- Left = 2
- Top = 25
- Width = 281
- Height = 22
- Hint = 'Go back one Subdirectory level'
- Caption = 'Go Up One Directory Level'
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 04000000000000010000120B0000120B00001000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
- 5555555555555555555555555555555555555555555555555555555555555555
- 55555555FFFFFFFFFF5555500000000005555557777777777F55550BFBFBFBFB
- 0555557F555555557F55550FBFBFBFBF0555557F555555557F55550BFBFBFBFB
- 0555557F555555557F55550FBFBFBFBF0555557F555555557F55550BFBFBFBFB
- 0555557F555555557F55550FBFBFBFBF0555557FFFFFFFFF7555550000000000
- 555555777777777755555550FBFB0555555555575FFF75555555555700007555
- 5555555577775555555555555555555555555555555555555555555555555555
- 5555555555555555555555555555555555555555555555555555}
- NumGlyphs = 2
- ParentShowHint = False
- ShowHint = True
- OnClick = SpeedButton2Click
- end
- object Label6: TLabel
- Left = 88
- Top = 52
- Width = 98
- Height = 13
- Caption = 'Web Server Files'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object eRemotePath: TEdit
- Left = 4
- Top = 67
- Width = 275
- Height = 21
- ReadOnly = True
- TabOrder = 0
- Text = 'eRemotePath'
- end
- end
- object Panel9: TPanel
- Left = 1
- Top = 93
- Width = 285
- Height = 154
- Align = alClient
- TabOrder = 1
- object lFiles: TListBox
- Left = 1
- Top = 1
- Width = 283
- Height = 152
- Align = alClient
- DragMode = dmAutomatic
- ItemHeight = 13
- Sorted = True
- TabOrder = 0
- OnDblClick = lFilesDblClick
- end
- end
- end
- end
- end
- object TabSheet5: TTabSheet
- Caption = 'TabSheet5'
- TabVisible = False
- object Label7: TLabel
- Left = 72
- Top = 0
- Width = 470
- Height = 40
- Alignment = taCenter
- Caption =
- 'Last, you must specify where you want the files to be backed-up ' +
- 'to, and some options for storage. Click "Finished" when done.'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlue
- Font.Height = -16
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- WordWrap = True
- end
- object Panel10: TPanel
- Left = 0
- Top = -250
- Width = 0
- Height = 250
- Align = alBottom
- TabOrder = 0
- object Panel11: TPanel
- Left = 1
- Top = 129
- Width = 611
- Height = 120
- Align = alBottom
- TabOrder = 0
- object Bevel2: TBevel
- Left = 4
- Top = 60
- Width = 601
- Height = 55
- end
- object Bevel1: TBevel
- Left = 4
- Top = 6
- Width = 601
- Height = 51
- end
- object Label15: TLabel
- Left = 23
- Top = 24
- Width = 174
- Height = 13
- Caption = 'Select Backup Process Option'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label16: TLabel
- Left = 32
- Top = 88
- Width = 3
- Height = 13
- end
- object DBCheckBox3: TDBCheckBox
- Left = 18
- Top = 65
- Width = 336
- Height = 17
- Caption = 'E-mail backup report option - Send report to the below address :'
- DataField = 'EMAIL'
- DataSource = MainWin.DS_Profiles
- TabOrder = 0
- ValueChecked = 'True'
- ValueUnchecked = 'False'
- OnClick = DBCheckBox3Click
- end
- object OvcDbSimpleField2: TOvcDbSimpleField
- Left = 85
- Top = 87
- Width = 212
- Height = 21
- Cursor = crIBeam
- DataField = 'EM_ADDR'
- DataSource = MainWin.DS_Profiles
- FieldType = ftString
- CaretOvr.Shape = csBlock
- Controller = OvcController1
- DisabledColors.BackColor = clWindow
- DisabledColors.TextColor = clGrayText
- ErrorColors.BackColor = clRed
- ErrorColors.TextColor = clBlack
- HighlightColors.BackColor = clHighlight
- HighlightColors.TextColor = clHighlightText
- MaxLength = 100
- TabOrder = 1
- end
- object RadioButton1: TRadioButton
- Left = 256
- Top = 7
- Width = 201
- Height = 17
- Caption = 'Replace old version with new version'
- Checked = True
- TabOrder = 2
- TabStop = True
- OnClick = RadioButton1Click
- end
- object RadioButton2: TRadioButton
- Left = 256
- Top = 23
- Width = 233
- Height = 17
- Caption = 'Use new subfolder with date and time stamp'
- TabOrder = 3
- OnClick = RadioButton1Click
- end
- object RadioButton3: TRadioButton
- Left = 256
- Top = 39
- Width = 265
- Height = 17
- Caption = 'Three version rotation in subfolders (A, B and C)'
- TabOrder = 4
- OnClick = RadioButton1Click
- end
- object RadioGroup1: TRadioGroup
- Left = 416
- Top = 61
- Width = 185
- Height = 49
- Caption = 'Report Options'
- ItemIndex = 0
- Items.Strings = (
- 'Summary Report'
- 'Detailed Report')
- TabOrder = 5
- OnClick = RadioGroup1Click
- end
- end
- object DriveComboBox1: TDriveComboBox
- Left = 8
- Top = 8
- Width = 145
- Height = 19
- DirList = DirectoryListBox1
- TabOrder = 1
- end
- object DirectoryListBox1: TDirectoryListBox
- Left = -453
- Top = 1
- Width = 452
- Height = 128
- Align = alRight
- ItemHeight = 16
- TabOrder = 2
- end
- end
- end
- object TabSheet6: TTabSheet
- Caption = 'TabSheet6'
- TabVisible = False
- object Label9: TLabel
- Left = 0
- Top = 0
- Width = 441
- Height = 20
- Align = alTop
- Alignment = taCenter
- Caption =
- 'To edit a profile, double-click on the desired profile listed be' +
- 'low.'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlue
- Font.Height = -16
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object DBGrid1: TDBGrid
- Left = 128
- Top = 96
- Width = 353
- Height = 161
- DataSource = MainWin.DS_Profiles
- Options = [dgColumnResize, dgTabs, dgConfirmDelete, dgCancelOnExit]
- TabOrder = 0
- TitleFont.Charset = DEFAULT_CHARSET
- TitleFont.Color = clWindowText
- TitleFont.Height = -11
- TitleFont.Name = 'MS Sans Serif'
- TitleFont.Style = []
- OnDblClick = DBGrid1DblClick
- Columns = <
- item
- FieldName = 'PROFILE'
- end>
- end
- end
- object TabSheet7: TTabSheet
- Caption = 'TabSheet7'
- TabVisible = False
- object Label10: TLabel
- Left = 0
- Top = 0
- Width = 322
- Height = 20
- Align = alTop
- Alignment = taCenter
- Caption = 'Double-Click on the profile you want to delete.'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlue
- Font.Height = -16
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object DBGrid2: TDBGrid
- Left = 128
- Top = 88
- Width = 353
- Height = 169
- DataSource = MainWin.DS_Profiles
- Options = [dgEditing, dgColumnResize, dgTabs, dgConfirmDelete, dgCancelOnExit]
- ReadOnly = True
- TabOrder = 0
- TitleFont.Charset = DEFAULT_CHARSET
- TitleFont.Color = clWindowText
- TitleFont.Height = -11
- TitleFont.Name = 'MS Sans Serif'
- TitleFont.Style = []
- OnDblClick = DBGrid2DblClick
- Columns = <
- item
- FieldName = 'PROFILE'
- Title.Caption = 'Profile'
- end>
- end
- end
- object TabSheet8: TTabSheet
- Caption = 'TabSheet8'
- TabVisible = False
- object Label11: TLabel
- Left = 0
- Top = 0
- Width = 0
- Height = 60
- Align = alTop
- Alignment = taCenter
- Caption =
- 'In order for a backup profile to be performed on it'#39's assigned s' +
- 'chedule, it must be ACTIVE. By default, a profile is set to act' +
- 'ive when it is created. However, you may want to deactivate a b' +
- 'ackup profile temporarily.'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlue
- Font.Height = -16
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- WordWrap = True
- end
- object Label12: TLabel
- Left = 0
- Top = 68
- Width = 613
- Height = 20
- Alignment = taCenter
- AutoSize = False
- Caption =
- 'Click the check box allong side the profile name to activate/dea' +
- 'ctivate the profile.'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlue
- Font.Height = -16
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- Layout = tlBottom
- end
- object OvcDbTable2: TOvcDbTable
- Left = 136
- Top = 120
- Width = 337
- Height = 145
- ColorUnused = clBtnFace
- Colors.ActiveFocused = clHighlight
- Colors.ActiveFocusedText = clHighlightText
- Colors.ActiveUnfocused = clHighlight
- Colors.ActiveUnfocusedText = clHighlightText
- Colors.Locked = clBtnFace
- Colors.LockedText = clWindowText
- Colors.Editing = clBtnFace
- Colors.EditingText = clWindowText
- Colors.Selected = clHighlight
- Colors.SelectedText = clHighlightText
- Controller = OvcController1
- Ctl3D = False
- DataSource = DataSource1
- GridPenSet.NormalGrid.NormalColor = clBtnShadow
- GridPenSet.NormalGrid.SecondColor = clBtnHighlight
- GridPenSet.NormalGrid.Style = psDot
- GridPenSet.NormalGrid.Effect = geBoth
- GridPenSet.LockedGrid.NormalColor = clBtnShadow
- GridPenSet.LockedGrid.SecondColor = clBtnHighlight
- GridPenSet.LockedGrid.Style = psSolid
- GridPenSet.LockedGrid.Effect = ge3D
- GridPenSet.CellWhenFocused.NormalColor = clBlack
- GridPenSet.CellWhenFocused.SecondColor = clBtnHighlight
- GridPenSet.CellWhenFocused.Style = psSolid
- GridPenSet.CellWhenFocused.Effect = geBoth
- GridPenSet.CellWhenUnfocused.NormalColor = clBlack
- GridPenSet.CellWhenUnfocused.SecondColor = clBtnHighlight
- GridPenSet.CellWhenUnfocused.Style = psDash
- GridPenSet.CellWhenUnfocused.Effect = geBoth
- ParentCtl3D = False
- TabOrder = 0
- CellData = (
- 'FTP_CreateNewProfile.OvcTCCheckBox1'
- 'FTP_CreateNewProfile.OvcTCString2')
- ColData = (
- 244
- False
- 'PROFILE'
- 0
- True
- 'OvcTCString2'
- 604
- True
- 'KIND'
- 0
- False
- 64
- True
- 'INTERVAL'
- 0
- False
- 124
- True
- 'TIME'
- 0
- False
- 1204
- True
- 'TARGET_LOC'
- 0
- False
- 64
- True
- 'ROTATE_DIR'
- 0
- False
- 64
- True
- 'DTSTAMP_DI'
- 0
- False
- 34
- True
- 'EMAIL'
- 0
- False
- 604
- True
- 'EM_ADDR'
- 0
- False
- 46
- True
- 'LASTDIR'
- 0
- False
- 604
- True
- 'PERFORM_IN'
- 0
- False
- 604
- True
- 'LASTDONE'
- 0
- False
- 47
- False
- 'ACTIVE'
- 0
- True
- 'OvcTCCheckBox1'
- 64
- True
- 'DETAI_EMAI'
- 0
- False
- 34
- True
- 'MON'
- 0
- False
- 34
- True
- 'TUE'
- 0
- False
- 34
- True
- 'WED'
- 0
- False
- 34
- True
- 'THU'
- 0
- False
- 34
- True
- 'FRI'
- 0
- False
- 34
- True
- 'SAT'
- 0
- False
- 34
- True
- 'SUN'
- 0
- False)
- end
- end
- object TabSheet9: TTabSheet
- Caption = 'TabSheet9'
- TabVisible = False
- object Label8: TLabel
- Left = 88
- Top = 8
- Width = 420
- Height = 40
- Alignment = taCenter
- Caption =
- 'The below listed backup profiles are available for immediate exe' +
- 'cuting. Double-Click on the backup profile to execute.'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlue
- Font.Height = -16
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- WordWrap = True
- end
- object DBGrid3: TDBGrid
- Left = 168
- Top = 96
- Width = 262
- Height = 169
- DataSource = DataSource1
- Options = [dgColumnResize, dgTabs, dgConfirmDelete, dgCancelOnExit]
- TabOrder = 0
- TitleFont.Charset = DEFAULT_CHARSET
- TitleFont.Color = clWindowText
- TitleFont.Height = -11
- TitleFont.Name = 'MS Sans Serif'
- TitleFont.Style = []
- OnDblClick = DBGrid3DblClick
- Columns = <
- item
- FieldName = 'PROFILE'
- end>
- end
- end
- end
- end
- object OvcController1: TOvcController
- EntryCommands.TableList = (
- 'Default'
- True
- ()
- 'WordStar'
- False
- ()
- 'Grid'
- False
- ())
- end
- object FTP: TipwFTP
- OnError = FTPError
- WinsockLoaded = False
- OnFirePITrail = FTPFirePITrail
- OnDirList = FTPDirList
- OnTransfer = FTPTransfer
- Left = 31
- Top = 148
- RegHnd = {
- DFF1820CB4858ACA464759EE76F38A4953B10FBEFAE3BD9DB66AFDA788991682
- E221D708B9E775531B12DA52B2011C964E04B0A0233AFBDA35852D10CCD6C99F
- DFF1820CB4858ACA733818756DDBBC082C21AA341A5E7D3733DDF9B614834F35
- 407D3C435B542AF710BF684573CDB8E45924C810EFDC49632328EEF2276B9092}
- end
- object PopupMenu1: TPopupMenu
- Left = 6
- Top = 172
- object Deletethisfilefromthelist1: TMenuItem
- Caption = 'Delete this file from the list'
- OnClick = Deletethisfilefromthelist1Click
- end
- end
- object OvcTCString1: TOvcTCString
- Access = otxReadOnly
- AutoAdvanceChar = False
- AutoAdvanceLeftRight = False
- MaxLength = 200
- ShowHint = False
- Table = OvcDbTable1
- TextStyle = tsFlat
- UseWordWrap = False
- UseASCIIZStrings = False
- Left = 310
- Top = 228
- end
- object OvcTCComboBox1: TOvcTCComboBox
- AcceptActivationClick = True
- AutoAdvanceChar = False
- AutoAdvanceLeftRight = False
- Items.Strings = (
- 'Binary'
- 'ASCII')
- ShowHint = False
- MaxLength = 20
- SaveStringValue = False
- Style = csDropDown
- Table = OvcDbTable1
- TextStyle = tsFlat
- UseRunTimeItems = False
- Left = 358
- Top = 244
- end
- object OvcTCColHead1: TOvcTCColHead
- Headings.Strings = (
- ''
- 'Files To Backup'
- 'Select Mode')
- ShowActiveCol = False
- ShowLetters = False
- Table = OvcDbTable1
- TextStyle = tsFlat
- UseWordWrap = False
- Left = 430
- Top = 124
- end
- object Table1: TTable
- Active = True
- DatabaseName = 'FPB'
- TableName = 'FTP Profiles.DBF'
- Left = 29
- Top = 79
- object Table1PROFILE: TStringField
- FieldName = 'PROFILE'
- Size = 40
- end
- object Table1KIND: TStringField
- FieldName = 'KIND'
- Size = 100
- end
- object Table1INTERVAL: TSmallintField
- FieldName = 'INTERVAL'
- end
- object Table1TIME: TStringField
- FieldName = 'TIME'
- end
- object Table1TARGET_LOC: TStringField
- FieldName = 'TARGET_LOC'
- Size = 200
- end
- object Table1ROTATE_DIR: TBooleanField
- FieldName = 'ROTATE_DIR'
- end
- object Table1DTSTAMP_DI: TBooleanField
- FieldName = 'DTSTAMP_DI'
- end
- object Table1EMAIL: TBooleanField
- FieldName = 'EMAIL'
- end
- object Table1EM_ADDR: TStringField
- FieldName = 'EM_ADDR'
- Size = 100
- end
- object Table1LASTDIR: TStringField
- FieldName = 'LASTDIR'
- Size = 1
- end
- object Table1PERFORM_IN: TStringField
- FieldName = 'PERFORM_IN'
- Size = 100
- end
- object Table1LASTDONE: TStringField
- FieldName = 'LASTDONE'
- Size = 100
- end
- object Table1ACTIVE: TBooleanField
- FieldName = 'ACTIVE'
- end
- object Table1DETAI_EMAI: TBooleanField
- FieldName = 'DETAI_EMAI'
- end
- object Table1MON: TBooleanField
- FieldName = 'MON'
- end
- object Table1TUE: TBooleanField
- FieldName = 'TUE'
- end
- object Table1WED: TBooleanField
- FieldName = 'WED'
- end
- object Table1THU: TBooleanField
- FieldName = 'THU'
- end
- object Table1FRI: TBooleanField
- FieldName = 'FRI'
- end
- object Table1SAT: TBooleanField
- FieldName = 'SAT'
- end
- object Table1SUN: TBooleanField
- FieldName = 'SUN'
- end
- end
- object OvcTCCheckBox1: TOvcTCCheckBox
- AcceptActivationClick = True
- Adjust = otaCenter
- AllowGrayed = False
- CellGlyphs.IsDefault = True
- CellGlyphs.GlyphCount = 3
- CellGlyphs.ActiveGlyphCount = 2
- ShowHint = False
- Table = OvcDbTable2
- Left = 461
- Top = 121
- end
- object OvcTCString2: TOvcTCString
- Access = otxReadOnly
- AutoAdvanceChar = False
- AutoAdvanceLeftRight = False
- MaxLength = 40
- ShowHint = False
- Table = OvcDbTable2
- TextStyle = tsFlat
- UseWordWrap = False
- UseASCIIZStrings = False
- Left = 493
- Top = 121
- end
- object Timer1: TTimer
- OnTimer = Timer1Timer
- Left = 397
- Top = 127
- end
- object DataSource1: TDataSource
- DataSet = Table1
- Left = 53
- Top = 79
- end
- object ipwNetDial1: TipwNetDial
- OnStatus = ipwNetDial1Status
- Left = 93
- Top = 137
- RegHnd = {
- 57A29875FE37917BE2A20F9AECEFD97AB0F74AE5A2F9CEDBC784E056F22CACEC
- 709792016502E1E9AEC9F5B9C072EEA2EFFEF8166D83844FEFB4242F0A95B876
- 57A29875FE37917BEAE2BB3C965C394A2EAB6F55270E4BBB565E2242C648E195
- 8AD920C619045EB810B8A2A427126C10A6B635B05AEBEEB0AC0ADA3874C883FA}
- end
- end
-